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2. 
2.1 



ABSTRACT 
Purpose 



To allow the user to perform various functions using DEC tape and the toggle 
switches of a PDP-7 computer. The programs are designed to detect any errors in the DECtape 
Control . Separate binary tapes are available for either control 1 or for a second control . 

General Description 

The user simply sets the accumulator switches as required and starts the computer 
at the correct starting address for the particular program. The appropriate messages will be 
typed when the function is completed or when any error occurs. A brief description of each 
subroutine is given in the following paragraphs; however, a list of the current subroutines and 
their starting addresses follows: 



Function 

Writes, reads, and compares up to 2000o words written 
from 3600. 

Writes mark track and block mark numbers for unmodified 
controls with serial numbers 1 through 5. 

Writes virgin tape in the forward direction. 

Sum checks tape forward. 

Sum checks tape in reverse. 

Generates 2000 words of desired pattern beginning at 
3600. ^ 

Generates 2000 words beginning at 3600 in arithmetic 
progression. 

Writes up to 2000^ words from 3600. 
o 

Reads up to 2000 words into core beginning at 5600. 
o 

Writes virgin tape in reverse direction. 

Exercises requested tapes by writing a virgin tape pat- 
tern and sum checking in both directions continuously. 

Generates 2000 random numbers beginning at 3600. 
8 

Moves tape in both directions for constant time in 
variable modes. 



< 
> 


Starting 
Address 


Mnemonic 


a) 


100 


TSTMM 


b) 


101 


WRMKTR 


c) 


102 


WRVIRG 


d) 


103 


SUMF 


e) 


104 


SUMR 


f) 


105 


MMGEN 


g) 


106 


MMGENA 


h) 


107 


MMWRT 


i) 


110 


MMREAD 


i) 


111 


WRVIRR 


k) 


112 


EXER 


1) 


113 


MMGENR 


m) 


114 


ROCKER 



IRIDIR 
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Starting 




Address 


Mnemonic 


n) 115 


BLROCK 


o) 116 


RWMKTR 


p) 117 


WRNVT 


q) 120 


STAR 


r) 121 


RBMN 


s) 122 


SPEXER 



3. 
3.3 

4. 



Function 



Reads tape in both directions beginning at designated 
block number for constant number of blocks. 

Revised mark track writer for PDP-compatible DECtapes 
(550 Control serial number 6 and higher). Used prior 
to WRNVT below. 

Second pass virgin tape program for revised mark track 
writer. (To be used for RWMKTR above, only.) 

Stop adjustment program. Provides suitable running 
and stopping delays for correct adjustment of DECtape 
delays. 

Reads block numbers from requested tape into successive 
locations, beginning at 3600. 

Special exerciser. Operates as does the normal exerciser 
(see k) except that a predescribed pattern is written in 
place of the virgin tape pattern. 



REQUIREMENTS 

Equipment 

Paper Tape Reader, Teleprinter, DECtapes 

USAGE 



4 . 5 Errors 

1) Ail error messages except the compare error from the TSTMM program have 
the following format: 

ERR XXX ZZZ (Y)* 

where ERR is the code for the error, XXX is the block mark number of the block involved and 
ZZZ is the nine bits of the report of the DECtape status using the MMRS instruction. The bits 
can be interpreted as follows: 



*lf an error occurs in the exerciser, Y will indicate the offending unit number (in octal). 
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Bif = Data flag up 

1 = Block flag up 

2 = Error flag up 

3 = End of tape 

4 = Timing error 

5 = Reverse 

6 = Go 

7 = Mark track error 

8 = Unable 

Error Codes are as follows: 

FMT = Format Error. Check ACS (block number will indicate block requested). 

NTF = Not found. 

ERS = Error flag for other than end of tape, during search. 

ERR = Error flag during reading. 

SUM = Sum check error. 

ERW = Error flag during writing. 

BMW = Block mark read does not correspond to block mark predicted during writing. 

BMC = Block mark read does not correspond to block mark predicted during sum checking. 

INT = Program interrupt occurred from other than error or data flags of DEC tape unit. 

FLC = The block end flag occurred before or after 400 data flags had been found. Can 

occur only during writing yirgin tape.* Register MMWA2 contains the count of the 
number of flags read; i.e., 400400 or 377377 etc. 

NFL = No flags. Program has stopped receiving program interrupts from DECtape unit. 

BUF = Contents of DECtape buffer were wrong after issuing MMWR command and checking 
by MMRD. Occurs during writing virgin tape only. 

NWR = Actual check sums do not agree with predicted check sums using exerciser, indicating 
that probably nothing was written. In the exerciser, unit 10 (octal) will always 
appear with this message. Can also occur if for any reason the first block in a pass 
was not written (for example, NTF etc.). 

NZB = No zero block. WRNVT could not successfully write the first zero block. Rerun 
WRNVT (see p). 



Assuming 400 word blocks, FLC cannot occur if SPEXER is used. 



8 
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2) Comparison errors wiii appear as foiiows: 

CMP O ZZZ XXXXXX YYYYYY 

where the first 3 words are as in 1) above, XXXXXX indicates the word written and YYYYYY 
indicates the word read. The block number indicators will always be zero. 

3) When errors occur, the following registers may be of importance. 
(3321) The reverse check sum as read from the block. 
(3320) The forward check sum as read from the block. 



MMRVC 
MMRDC 
MMCC 



(3317) The actual check sum calculated during reading. This should be 

iniiii. 

MMWC (3316) The forward check sum as written on the tape during writing. This 

should agree with MMRDC if the same direction is used. 

MMWDC (3305) The word count expressed as -N+1 . After all words have been written 

or read, this should say +0. 

NOTE: The forward check sum is the one read or written after the 
data and the reverse check sum is the one read or written before 
the data. Therefore, both are dependent on the direction being 
used. 

6. DESCRIPTION 

a) TSTMM 

Writes up to 2000o words beginning at 3600 into the indicated blocks in the 
forward direction, reads it back in the forward direction into 5600 and compares it against 
the original, word by word. Any error except a comparison error or a sum check error with 
ACS- = 1 will stop the program. In case of a comparison error, the program will continue 
untifall words have been checked. 

Use: 

1) Set ACS as follows: 

0* K2 3 4 5y ^678 91011 1 21314 15 16 1 7y 

^-</r^^ ^ 

Unit Starting Block 

2) Start at 100 



*lf ACS Bit 0=1, sum check errors will be ignored. 



FID IP 
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3) At HLTset ACS as follows: 

012 34 5 6.7 8 9 10 11 12 13 14 15 16 17/ 

V 

Number of Words 

4) Press CONTINUE. 

b) WRMKTR 

Writes the timing and mark tracks and block mark numbers on the tape. (Note 
that block mark numbers will have the 6-bit mark track code in the high-order six bits. These 
must be ANDed out when reading block marks through a user's program.) The program can 
create blocks of various constant lengths. The tape must be placed as close as possible to the 
beginning of the reel, manually, before starting. This program should be used for unmodified 
DECtape controls serial numbered 1-5 only. 

Use: 

1) Set ACS as follows: Block number should indicate one higher than the 
highest block which can be found by the tape subroutines, i.e., if the routines should search 
for blocks up to 1100, the number 1101 should be used. 

1X3 4_5/ ^6 7 8 9 10 11 1 2 13 14 15 16 \lj 

Unit Highest Block Numberi-1 

2) Start at 101. 

3) At HLT, set ACS as follows to indicate the actual number of data words 
desired per block. (Do not confuse with the number of data marks per block.) 

012 345 v67 8 9 10 11 1 2 13 14 15 16 17y 

V 

Number of Words per Block 

4) Press CONTINUE.. 

NOTE: This program will work only if the switch to allow writing 
on the mark track is on. The switch should be turned off immediately 
after the program is completed. 

c) WRVIRG 

Writes blocks with correct check sum, whose data portions consist of the numbers 
0, 1001, 2002 etc., through 377377, in the forward direction on the tape.* Any error stops 
the program. 



*lf other than a 400o word block is written, the constant at MMVK (1756) must be changed so 
as to place the number of words desired in each half of the word. For example, for a 300p 
word block, make the constant 300300, etc. The check sum of a 400. word standard virgin 
tape block is 100100. 
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Use: 

1) Set ACS as follows: 

K 2 34 5/V6 7 8 9 10 11 12 13 14 15 16 17. 

— VT ^ >r^ 

Unit Starting Block 

2) Start at 102. 

3) When HLT occurs set ACS as follows: 

012 345 ^678 9 10 11 12 13 14 15 16 \ly 



N^^- 

Number of Blocks 



d) 



4) Press CONTINUE. 
SUMF 



Checks the validity of the data and block marks on the tape by sum checking the 
tape and checking the intervening block mark numbers in the forward direction. If an error 
occurs, the program will type a message and continue beginning with the next block until all 
indicated blocks have been read. 

Use: 

1) Set ACS as follows: 

1^2 3 4J, v6 7 8 9 10 11 12 13 14 15 16 Mj 
Unit Starting Block 

2) Start at 103. 

3) When HLT occurs set ACS as follows: 

012 345 ^678 91011 1 21314 15 16 17y 

Number of Blocks 

4) Press CONTINUE, 
e) SUMR 

Same as SUMF (see d) except that the tape is checked in reverse direction. 

Use: 

1) Set ACS as follows: 



K2 3 4 5yi678 91011 121314 151617 



^ 



Unit 



\^ 

Starting Block 



U 



IP ID IP 
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2) Start at 104. 

3) When HLT occurs set ACS as follows: 

012 345 v6 78 9 10 11 12 13 14 15 16 1^ 

Number of Blocks 

4) Press CONTINUE. 

f) MMGEN 

Will spread the pattern set in the ACS into memory from 3600 through 5577 . 
Use: 

1) Set ACS to pattern desired. 

2) Start at 105. 

g) MMGENA 

Spreads a pattern beginning with and incremented by the contents of the ACS, 
into memory from 3600 to 5S77 . For example, if the ACS = 1, the numbers through 1777 will 
be spread. 

Use: 

1) Set ACS to increment desired. 

2) Start at 106. 

h) MMWRT 

Writes up to 2000 words in the forward direction from core locations 3600 
through 5577, 

Use: 

1) Set ACS as follows: 

1v2 3 4 5yv678 91011 12 13 14 15 16 IZ 
— ^ — — ^ y 

Unit Starting Block 

2) Start at 107. 

3) At HLT, set number of words to be written in ACS as follows: 

(Max = 2000^) 
o 

012 345 6J8 9 10 11 1 2 13 14 15 16 1^ 
s^ 

Number of Words 

4) Press CONTINUE. 
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i) 



MMREAD 



through 7517 , 



i) 



k) 



Reads up to 2000_ words in the forward direction into core locations 5600 
o 



Use: 

1) Set ACS as follows: 

1^ 

Unit 

Start at no. 



v2 3 4J. v6 7 8 9 10 n J 2 13 14 15 16 1:^ 

Starting Block 



2) 



3) At HLT, set number of words to read in ACS as follows: 

(Max = 2000_) 
o 

012 345 6\7 8 9 10 11 1 2 1314151617 

— V 

Number of Words 

4) Press CONTINUE. 
WRVIRR 

Same as WRVIRG (see c) except that blocks are written in the reverse direction. 
Use: 

1) Set ACS as follows: 
1v2 3 4> v ^7 8 9 10 11 12 13 14 15 16 1^ 

Unit Starting Block 

2) Start at 1 1 1 . 

3) When HLT occurs set ACS as follows: 

012 345 v67 8 9 10 11 12 13 14 15 16 1^ 

V 

Number of Blocks 

4) Press CONTINUE. 
EXER 



Exercises a succession of tapes by writing modified virgin tape in the forward 
direction on all desired tapes, sum checking in the reverse direction on all tapes, sum check- 
ing in the forward direction on all tapes, writing modified virgin tape in the reverse direction 
on all tapes, sum checking in the forward direction on all tapes, and finally sum checking in 
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the reverse direction on all tapes. The entire cycle will be repeated continuously until ACS 
bit is made a 1 . A message is written at the end of each cycle giving the number of the 
cycle. The pattern written during each pass is incremented by the pass number. If an error 
occurs, the program will type a message and continue, beginning with the next block. All 
error messages will indicate the unit number at the end of the message. The NWR message 
will stop the program only if it occurs eight times. 

Use: 

1) Set ACS as follows: 

012 345v678 91011 12 13 14 15 16 17. 

^ 

Starting Block 

2) Start at 112. 

3) When HLT occurs set ACS as follows: 

012 345 v678 91011 1 2 13 14 15 16 Uy 
-V^ 

Number of Blocks 

4) Press CONTINUE. 

5) When HLT occurs, set AC switches 1-8 to a 1 to indicate which units numbered 
1-8, respectively, are to be tested. For example, to exercise units 1-4 set only switches 

1-4 to a 1; to exercise unit 3 only, set switch 3 to a 1 and all others to a 0. Any combination 
of bits may be used. Only bits 1-8 are examined. These switches can be reset at any time 
during the running of the program to add or delete units. If ACS^ = 1, the program will stop 
at the end of a pass, 

6) Press CONTINUE. 

I) MMGENR 

Spreads 2000^ random numbers into locations 3600 through 5577 . A different 
block will be created each time the program is used unless the program is reloaded or the loca- 
tion called RNK (1042) is reset to 736425. 

Use: 

1) Start at 113. 

m) ROCKER 

The program will move the tape in the mode indicated for multiples of approx- 
imately 5-second intervals in both directions. The switches can be changed at any time during 
the running of the program. The ERROR FLAG is cleared when a Block End Flag is detected. 
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n) 



Meaning of the AC bits: 

12 = Go Flip- Flop On 

13 = Reverse FMp-Flop On 

14 = Not used 

15-17 = Mode: 0= Move 

1 = Search 

2 = Read 

3 = Write 

4 = Spare 

5 = Read through block ends 

6 = Write through block ends 

7 = Write timing track 

Use: 

1) Set ACS as follows: 

v0k^34^ 67 8 9 10 11 02 13 14 15 16 Uy 
Time* Unit Mode, Dir., Go 

2) Start at 114. 
BLROCK 



Reads DECtape blocks beginning at the block specified, for a variable number 
of blocks in either direction, if end of tape is reached, repositioning at the starting block 
occurs automatically. All other errors are cleared when a Block End Flag is detected. Read 
Mode only, is used. To stop the program, set bit of the ACS to 1 . 

Use: 

1) Set ACS as follows: 

lv2 3 4S v6 7 8 9 10 11 12 131415 16 IZ 
Unit Starting Block 

2) Start at 115. 

3) At HLT, set ACS as follows: 

012 345 ^678 91011 12 1314 15 16 17y 

V 

Number of Blocks 

4) Press CONTINUE. 



^00 = 5 seconds, 01 = 10 seconds, 10=15 seconds, 1 1 = 20 seconds approximately. 
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o) RWMKTR 

For those tape controls using the revised bit format (serial number 6 and later), 
two new programs have been designed to write the mark track, virgin tape pattern, and to 
check the tape. These are described fully below: (WRMKTR should still be used for unmod- 
ified controls with serial numbers 1-5 as described in paragraph b, page 6.) 

RWMKTR writes only the timing and mark tracks on the tape. The program can 
create any number of blocks of any desired constant length. 

Use: 

1) Place the reel as close as possible to the physical start of the tape. 

2) Set the switch which controls writing to ON. 

3) Set ACS, as follows, to one higher than the highest block number to be 
legally found by the subroutines: 

1^2 3 4 5y v678 91011 12 1314 15161^ 

Unit Highest block number +1 

4) Start at 116. 

5) At HLT, set ACS as follows to indicate the actual number of data words 



per block: 



012 345V678 9 10 11 12 13 14 15 16 17. 

"^? 

Number of words per block 



6) Press CONTINUE. 

7) When program is finished, turn mark track switch off, remount tape if 
necessary, and continue with the virgin tape program (WRNVT) explained below. 

p) WRNVT 

Used to write the virgin tape pattern and the block mark numbers on a tape with 
a newly created timing and mark track. This program should never be used except after 
RWMKTR above, it is not a normal virgin tape program, but one which writes through block 
ends. After the block mark numbers and virgin tape have been written in the forward direction^ 
the tape is automatically sum checked in reverse, showing all errors. In addition, the first 
block on the tape is rewritten to guarantee a as the first block mark number. (There are two 
blocks numbered at the front of the tape.) 



T 
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Use: 

1) Set ACS as follows: 
QK2 345^678 9 10 11 12 13 14 15 16 17 

Unit 

2) Start at 117. 

3) The block mark track will be used to determine the length of each block, 
and the end of tape will be used to determine the number of blocks. Since block mark numbers 
are now put on in a second pass, it is no longer necessary to AND out bits 0-5 when reading 
block mark numbers produced with this program. 

q) STAP 

The program allows visual inspection and manual regulation of the DECtape Stop 
Adjustment by the following routine: If ACS = the tape will move forward (in move mode) 
from its present position for 1 second, stop for 1 second, move in reverse for 1 second, stop for 
1 second, then repeat the cycle. 

If ACS- = 1, the tape will move forward for 0.12 seconds, stop for 1 second, 
move in reverse for 0.12 seconds, stop for 1 second, then repeat the cycle. 

Use: 

1) Set ACS as follows: 

0* 1^2 3 4> 6 7 8 9 10 11 12 13 14 15 16 17 
Unit 

2) Start at 120. 

Any of the accumulator switches can be changed at any time. Care should be 
taken that the tape unit used is not presently in the end zones, as stopping will be premature. 

r) RBMN 

Rewinds the indicated tape unit, then searches forward reading all block mark 
numbers and placing them (without masking) in successive locations beginning at 3600. When 
the forward end of the tape is reached, the remainder of the area up through 7577 is filled 
with minus zeros ^77777\ thus making clear what the last block mark number found was. The 
area can be checked by using the Examine Key. For the standard tape, the first block number 
will be in location 3600 and number 1 101 will be in location 4702. 



*Move for 0.12 second if on. 
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Use: 

1) Set ACS as follows: 

01x23^ 678 91011 12 13 14 15 16 17 
Unit 

2) Start at 121. 

s) SPEXER 

This special exercise program operates for the most part as does the normal 
exercise program (see k) except for the following differences: 

1) The user must generate the pattern to be written rather than use the standard 
virgin tape pattern. 

2) The check for flag count errors (PLC) is omitted as it depends on a check of 
the pattern used. 

Use: 

1) Generate the pattern desired by using MMGEN (see f), MMGENA (see g) 
or MMGENR (see I), if no pattern is generated, the block written will contain the informa- 
tion currently in memory beginning at location 3600. 

2) Set ACS as follows: 

012 34 5 v6 7 8 9 10 11 12 13 14 15 16 \lj 

Starting Block 

3) Start at 122. 

4) When HLT occurs, set ACS as follows: 

012 345 v678 91011 12 13 14 15161^ 

V^ 

Number of Blocks 

5) Press CONTINUE. 

6) When HLT occurs, set Accumulator switches, bits 1-8, to a 1 to indicate 
which units numbered, 1-8 respectively, are to be tested. For example, to exercise units 
1-4, set bits 1-4 only to a 1, to exercise units 1, 3, 5 and 8, set bits 1, 3, 5 and 8 to a 1 
etc. Any combination of bits may be used. These switches can be reset at any time during 
the running of the program to add or delete units. Only bits 1-8 are examined. If ACS^ = 1, 
the program will stop at the end of a pass. 

7) Press CONTINUE. 



IRIDIC 
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9. 
9.4 

EWIN 

MMAUT0=17 
21/ 



XI, 
50/ 

GISMlSrJMP 



PROGRAM 
Listing 

DECTOG 



CLA 

MMLC 

TIN 

LAW MSG1 

TSR 

LAC 

TAD 

AND 

JMS 

HLT 

JMP 



?3 

( 7777) 
TwZ6 



-1 



CLA 
MMLC 
JMP XI 



imu 



LAC 
PAL 
L. A C 
ION 
JMP 

JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



H 



A # C S A V E 







TSTMM /READ, 

W R M K T R 

WRVIRG 

SUMF /SUMCHECK 

SUMR /SUMCHECK 

MMGEN /GENERATE 

MMGENA 

MMWRT /WRITE 

M M R E A D 

Ui R V I R R 

tXER /WVF,SCR 

MMGENR 

ROCKER 

BLROCK 

RWMKTR 

WRNVT /VIRGIN 



WRITE AND CHECK 'BLOCKS, 100 

/WRITE MARK TRACK, 101 

/WRITE VIRGIN TAPE, 102 

FWD, 103 

REV, 104 

1 PATTERN BLOCKS, 105 

/GENERATE ASCENDING BLOCKS, 106 
BLOCKS, 107 

/READ BLOCKS, 110 

/WRITE VIRGIN TAPE REVERSE, 111 
,SCF,WVR,SCF,SCR, 112 

/GENERATE RANDOM BLOCKS, 113 

/MOVES TAPE IN TWq DIRECTIONS FOR FIXeD TIME 

/READS TAPE B I D I RECT I ONALL Y FOR FIXED LENGTH 

/REVISED MARK TRACK WRITER, 116 
TAPE FOR NEW TAPE ONLY, 117 
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130/ 
/TEST 

MMWRA= 
MMRDA= 
TSTMH, 



JMP STAR /STOP ADJUSTMENT PROGRAM, 120 

JMP RBMN /RECORD BLOCK MARK NUMBERS, 121 

JMP SPEXFR /EXERCISE WITH PREDETERMINED 



dcctape subroutines 

3600 

MMWI 



PATTERN, 122 



T S T M M 2 , 



TSTMM3 



TSTMM4 



RA + 2 
JMS 
LAS 
DAC 
DAC 
DAC 
SMA 
JMP 
LAC 
DAC 
JMS 
LAC 
CMA 
ADD 
DAC 
ADD 
DAC 
JMS 
LAC 
JMP 

M M W 

JMS 
JMS 
LAC 
JMP 

MMR 



JMS 

LAW 

DAC 

LAW 

DAC 

LAC 

DAC 

Lac 

SAD 
SKP 



/SELECTION AND BLOCK NUMBER 



000 
CLRFLG 

#K1 

TSTMM2 

TSTMM3 



.+3 

(JMP MMRD4+10) 

M M 1 + 6 

ISTN^D /PICK UP NUMBER OF WORDS 

CI 

( M M W R A ) 

T S T M M 2 + 2 

(MMRGA-'^MWRA) 

TSTMM3+2 

M M W R S 

Kl /HLOCK NUMBER 

TSTMM6 /ERROR RETURN 

/UNIT SELECTION 
RA 

/CORF END 
TSTMM8 /MULTI-PROGRAM 

M M R S 

Kl /BLOCK NUMBER 
TSTMM6 /ERROR RETURN 

/UNIT SELECTION 
DA /CORE START 

/CORE END 
TSTMMa /MULTI-PROGRAM 

M M W R A - 1 
10 

MMROA-1 
11 
CI 
#C2 
1 10 
I 11 



IRZDIR 
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JMP 


T S T M M 7 




TS^ 


C2 




JMP 


T S T M M 4 




JMS 


TYPFND 




LAS 






SMA 






JMP 


XI /nONF 




JMS 


L W R F I. G 




JMP 


TSTMM2-3 


TSTMM6, 


JMS 


DECFHR 




JMP 


XI 


TSTMM7, 


LAW 






JMS 


DECEPR 




TSP 






[ AC 


10 




DAC 


pC6 




LAC 


T C5 




JMS 


Tv^h 




TSP 






LAC 


11 




C) A C 


C3 




LAC 


I c:5 




JMS 


I W6 




JMP 


T S T M M 4 + 4 


TSTMMd, 


M 






LAC 


M M W A 1 




ISZ 


IF 




JMP 


.+4 




lOF 






LAW 


1300 




JMP 


M M E R H X - 1 




ISt^ 


M M n N E 




JMP 


T S T H M 8 + 1 




I OF 






JMP 


I T S T M M « 


/FOR IN 


TFRRUPT 


TSTHM9, 


[) A C 


ACS AVE 




DZM 


IF 




MMFF 




SKP 






JMP 


M M E R R 




MMDF 




SKP 






JMP 


MMDATA 




LAW 


11(^0 




JMP 


MMERRX-1 



/COMPARE ERROR 



/CONTINUE 
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/CONSTANTS AND SURHOU TINES 



T YPOK 



C (FLEX OK ) 
P I TYPOK 



TYPENO 



N 



ERRTA8 



'A 
1 I 

LAI 

ty; 

JMI 



ti 

LAI 
TY, 

JMi 

FL! 

FLI 

FLI 

FLEX INI FLEX FLC FLEX NFL 

F L F X 8 Li F FLEX N W R 



(FLEX END) 



C 
3 

IP I TYPENO 
EX CMP FLEX 
TX EPS FLEX 
.EX ENiN. FLEX 



FMT 
ERR 

BMW 



FLEX NTF 
FLEX SUM 
FLEX RMC 



ERRTaB+3^/ 
DECERR, 



ERRWA 



DA 

SA 

D^ 

SA 

JM 

SA 

SK 

JM 

LA 

DA 

TI 

LA 

RT 

NT 

FT 

AN 

AD 

PA 

LA 

TY 

TS 

LA 

JM 

TS 

LA 

TW 

3 

JM 



ERRWA 

(LAW) 

M M W A 1 

(LAW l^oil) 

. +4 

(LAW 2 i/i ) 

. +3 

M M B L K M 

M M W A 1 
E R R w A 



( 77) 

(LAC ERR TAB) 

. +1 

ERRTAB 



/MODIFIED 



MMWAI 
TW£6 



M M R S A 



ORD 



p I D F r; E R R 
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TW6, 

T w R 

6 

JMP I TW6 
TWZ6, 

TWORDZ 

6 

JMP I TW/6 
MSGl, FLFX CAL FLEX FR FLEX M T-2 

/WRITE VIRGIN TAPE 
WRVIKG, LAC (JMS MMVT) 

DAC wRVl-2 

JMS CLRFLG 

LAS /UNIT SELECTION AND BLOCK NUMBER 

DAC Kl 

D AC W R V 1 + 2 

HLT 

LAS /NUMBER OF BLOCKS 

A N (7777) 

CM A 

A on (1) 

DAC WRVI 

LAC (1001) 

JMS GENRLA 

1/ /NUMBER TO START AT 

JMS M yi V T 

LAC Kl /HLOCK 
WRVI, V' /HO OF BLOCKS 

JMP TSTMM6 /ERROR 

!^ / U N I T 

JMS TSTMH8 

WRV2, JMS TrPOK 

JMP XI 

W R V I R R , L. A C (JMS M M V T R ) 
JMP w R V I R G + 1 

/SUM CHECK PR0(";RaMS 

SUMF, LAC (JMS MMSCF) 

DAC S U M F 1 

JMS CLhFLG 

LaS /UNIT AND BLOCK NUMBER 

DAC SUMF 1+4 

AM[t (77 77) 

DAC Kl 

HLT 



IP ID IP 

LIBRARY 
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LAS 


/NUMBER OF BLOCKS 






AND 


(7777) 






CM A 








ADD 


(1) 






DAC 


SUMF1+? 




SUMFl, 


JMS 


MMSCF /OR NMSCR, MODIFIED 






LAC 


Kl /HLOCK 









/imumrer of blocks, - 


-N+1 




J MP 


SUMF? /error 









/UNIT 






JMS 


T S T M M 8 




SUMFIA, 


JMS 


TYPEND 






JMP 


XI 




SUMF2» 


JMS 


nECERR 






LAC 


M M W A 1 






CMA 








ADD 


Kl 






SPA 








CMA 








ADD 


SUMF1+? 






ADD 


(1) 






SMA 








JMP 


SUMFIA 






DAC 


SUMF1+? 






LAC 


M M W A 1 






Tad 


MMSCFK 






DAC 


Kl 






JMS 


LWRFLG 






JMP 


SUMFl 




SUMR, 


LAC 


(•JMS MMSCR) 






JMP 


SUHF+1 




/GENEfUTE 


BLOCKS 




MMGEN, 


LAC 


(CLA) 






DAC 


HMGENl 






LAC 


(LAS) 






DAC 


MMGENl-3 






LAW 


MMWRA-1 






DAC 


MMAUrO 






LAM 


-MMRDA+MMWRA+1 






DAC 


MMWA2 






L, AS 








DAC 


i^! M W A 1 






DAC 


I M M A U T 




MiMGENl, 


CLA 


/OR LAS 






ADD 


h M W A 1, 






DAC 


M M W A 1 






ISZ 


M M W A 2 






JMP 


MMGENl-1 






JMP 


'A R V 2 
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MMGFiNA, 



LAC (LAS) 
DAC MMGENl 
LAC (CLA) 
JMP MMGEN+3 



/READ RLOCKS 



MMREAQ, 



MRFA02, 



LAC 

DAC 
LAW 
rJAC 
LAS 
DAC 
JMS 
LAC 
CM A 
ADD 
DAC 
JMS 

JMS 
LAC 
JMP 

(?) 
LAW 



AND BLOCK NUMBFR 

/PICK UP NO OF l^DS 



(JMS MMRDS) 

MREAD? 

MMROA 

M R E A n 2 + 4 

/UNIT 
MREAD2+3 
T S T i\l W D 
CI 

H R F A n 2 + 4 
M R E A D 2 + 5 
CLRFLG 



MMRDS /OR JMS MMWRS 
.+2 /BLOCK NUMBER 
TSTMM6 /ERROR 

/UNIT 
MMROA /OR LAW MMWRA, CORE 

/CORE END, MODIFIED 



START 



MS TSTMM8 
IMP W R V 2 



/WRITE 
MMWRT, 



BLOCKS 
LAC 
DAC 
LAW 



(JMS MMWRS) 
MREAD2 

M M W R A 



JMP MMREAO+3 



/CLEAR FLAGS, SET UP INTERRUPT, AND 


CLRFLG, u) 








lOF 


ncF 




CRRB 


CPCF 


LPCF 




LSCF 


7(^0102 


PCF 




KRB 


TCF 


MSI 




CLOF 


c: L A 


7'^)7604 




701604 


LAC (JMP 


MMMOOl ) 






DAC MMRO? 


-1 






LAC (JMP 


MMMOOl + 


3) 




DAC MMRD^ 


+ 3 






LAC (JMP 


M M M D 1 + 


7) 





MODIFY READ AND WRITE RTNES 



/MMLC FOR 1ST AND 2ND CONTROLS 
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DAC 


^i^,UR4 + 4 




LAC 


(JMP TSTMM9) 




DAC 


1 




DZM 


»IF 




LAC 


(LAC MMVK) 




DAC 


^i M V W R 3 + 1 !^ 




LAC 


(JMP M H K D 4 + 4 ) 




DAC 


MMMODl+6 




LAC 


(JMS TYPFND) 




DAC 


SUMFIA 




JMH 


I CLRFLG 


MMMOOl , 


DAC 


^, M S U M 




DAC 


M # M R V C 




JMP 


MMRD? 




DAC 


M#HRDC 




ADD 


M M S U M 




D A C 


M#hCC 




JMP 


MMRn4+4 /ORJM 




DAC 


H # H W C 




HMWR 




JMP 


M M W R 4 + 5 


TSTNwn, 


pi 
HLT 






LAS 


/iMUMRER OF WORDS 




AND 


(7777) 




C M A 






ADD 


(1) 




D A C 


#C1 




ADD 


(MMRDA-MMWRA) 




SMA 


/TOO MANY WORDS 




JMP 


I TSTNWO 




LAM 


-MMRDA+MMWRA+1 




JMP 


.-5 


MM0D1=MMM0D1 




START 








CONSFCUnVE U\'IT EXERCISER 


EXFR, 


JMS 


CLRFLG 




LAC 


(JMP MVT2) 




DAC 


M M V W R 3 + 1 




LAC 


(JMS GFNPLA) 




DAC 


EXERl+3 




LAS 


/BLOCK NUMBER 



T 

LIBRARY 



AND 
DAC 
HLT 
LAS 
AND 
D A C 
C h A 
ADD 
OAC 
LAC 
ADD 
TAD 
DAC 
OzfM 
LAM 
DAC 
MLT 
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(7777) 
C2 



/N 



( 7777) 

(1) 

E#X1 

C2 

C3 

( -0) 

C3 

TYPOK 

-7 

w # A 6 



/ENDIivG BLOCK 



/SET UP UNITS TO WORK ON 



EXERl, 



LAC TYPOK 
DAT .+3 
t-AC (101^1) 
JMS GEN3LA 



/MODIFIED, ;MUNiRER TO START WITH 



LAC (JHS EXVT) 

JMS CONSEC 

LAC (JMS SUM SB h) 

JMS rONSEC 

JMS MWRCHK 

LAC (JMS SUMSBF ) 

JMS CONSEC 

LAC (JMS EXVTR) 

JMS CONSEC 

LAC (JMS SUMSBF) 

JMS CONSFC 

J MS M W R C H K 

Lac (JMS SUMSBR^ 

JMS CONSEC 

IS? TYPOK 

JMS TYPENQ 

TSP 

LAC TYPOK 

JMS T W /. 6 



L A S 

SPA 

JMP XI 

JMS LWRFLG 

JMP FXFRl 
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CONSEC, 


P/ 






DAC 


C0NSC2 




LAM 


-7 




DAC 


W#A4 




LAS 






DAC 


w # A 5 




CLA 




CONSCl, 


AOLi 


( 1 1/1 (^ ) 




DAC 


SUMSRF+13 




LAC 


1nA5 




NAL 






DAC 


WA5 




SPA 




CONSC^, 


JMS 


/MOniFIEu 




LAC 


SUMSRF+13 




ISl 


hA4 




J^^P 


CONSCl 




Ji^P 


I CONSFC 


SUMSRF, 


'/ 






LAC 


(JMS MMSCF) 




D A C 


.+5 




LAC 


C2 




OAC 


Kl 




LAC 


EXl 




OAC 


.+3 




JMS 


MMSCF /OR MMSCR, MMVT, MMVTR 




LAC 


Kl /hjLOCK NUMPEP 







/-N + 1 




JMP 


i-XFPR /FPRCm 




Vj 


/ iJ N I T 




JMS 


T S T M M B 




J MP 


I SliMSPF 


SUMSHh?, 


i^ 






LAC 


.-1 




D A C 


S U M S P F 




L A C 


(JMS MM SCR) 




DAC 


I SUMSPF+2 




LAC 


c:5 




J MP 


S U M S H F +^ 


EXVT, 


!/l 






LAC 


."1 




D A C 


S U M S B F 




LAC 


(JMS M M V T ) 




JMP 


SUMSHF+2 
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EXVTR, 


</\ 






LAC 


.-1 




DAC 


SUMSRF 




LAC 


(JMS MMVTR) 




JMP 


SUMSRR+4 


LWRFLG, 



TSF 






JMP 


.-1 




TCF 






JMP 


I LWRFLG 


EXERR, 


JMS 
TSP 


DECERR 




LAC 


SUMS8F+13 




TWORP? 




2 






LAC 


MMWAl 




CM A 






ADD 


Kl 




SPA 






CMA 






ADD 


SUMSRF+11 




ADD 


(1) 




SMA 






JMP 


.+7 /DONE 




DAC 


SUMS9F+11 




LAC 


MMWAl 




TAD 


MMSCFK 




DAC 


Kl 




JMS 


LWRFLG 




JMP 


SUMSBF+7 




JMS 


LWRFLG 




JMP 


I SUMSRF 


RN, 









LAC 


RNK 




cll: 


RAR 




S?.L 






XUR 


(4000 00) 




XOR 


(335671) 




ADD 


(335671) 




DAC 


RNK 




JMP 


I RiM 


RNK, 


736425 
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mmgenr. 


LAW 


MMkRA-1 




LAM 


-MMROA+MMWRA+l 




DAC 


M M W A 2 




J<MS 


RN 




DAC 


I MMAUTO 




IS?- 


MMWA2 




JMP 


.-3 




JMP 


WRV2 


MWRCHK, 









LAC 


MMRVC 




SAD 


M M W C 




JMP 


I MWRCHK 




LAC 


(JMP XI) 




ISl 


WA6 




LAC 


.-3 




DAC 


HVT2-1 




LAW 


1500 /NWR 




JMS 


DECERR 




TSP 






LAC 


SUMSRF+13 




TWORDzf 




2 






JMS 


LWRFLG 




JMP 


I MWRCHK 


MVT2, 


LAC 


TYPOK 




ADD 


MMVK 




JMP 


HMVWR3+11 


/ INTERNAL 


BLOCK GENERATORS 



DAC MMAUTO 



/OR JMP XI 



/GENERATE BLOCKS WITH SAME CONTENTS 
/FORMAT Lac CONTENTS 
/ JMS GEN8L 



GENBL, 









DAC 


MMWAl 




LAM 


-MMRDA+MMWRA+l 




DAC 


MMWA2 




LAW 


MMWRA-1 




DAC 


MMAUTO 




LAC 


MMWAl 




DAC 


I MMAUTO 




ISZ 


MMWA2 




JMP 


,"2 




JMP 


I GENSL 
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/geneRaTe blocks in arithmetic progression 



/FORMAT 

/ 

/ 

GENBLA, 



LAC FACTOR 
JMS GENBLA 



/NUMBER TO ADD 



/NUMBER TO START WITH 



DAC MMWAl 

LAM -MMRDA+MMWRA+1 

DAC MMWA2 

LAW MMWRA-1 

DAC MMAUTO 

LAC I GENBLA 

DAC I MMAUTO 

ADD MMWAl 

ISZ MMWA2 

JMP .-3 

ISZ GENBLA 

JMP I GENBLA 



SPEXER, 



JMS CLRFLG 

LAC MMVWR3+12 

DAC MMVWR3+10 

LAC (SKP) 

JMP EXER+4 



START 



ROCKER PROGRAM 


ROCKER, JMS 


CLRFLG 


DZM 


CI 


JMS 


MMWAIT 


LAS 




XOR 


CI 


MMSE 




MMLC 




RAL 




RTL 




AND 


(3) 


CMA 




DAC 


C3 
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ROCKl, LAC (DECIMAL -89285 OCTAL) 
DAC C2 
MMBF 
JMP .+5 
MMEF 
JMP .+3 
LAS 
MMSE 
MMDF 
SKP 
MMRD 
ISZ C2 
JMP ROCKl+2 
ISZ C3 
JMP ROCKl 



/56 US LOOP 



LAC CI 

XOR (20) /CHG DIRECTION 

DAC CI 

JMP ROCKER+2 

/ROCK FOR CONSTANT NUMBER OF BLOCKS 

BLROCK, JMS CLRFLG 

D2M CI 

LAS /UNIT AND BLOCK NUMBER 

DAC BLRCKl 

HLT 

LAS /NUMBER OF SLOCKS 

AND (7777) 

CMA 

ADD (1) 

DAC C2 /BLOCK COUNTER 
BLRCKA, CLA 

MMLC 

JMS MMSCHl 

LAC .+3 /BLOCK NUMBER 

JMP ,-2 /ERROR, SEARCH AGAIN 

DISMIS 
BLRCKl, /UNIT 

LAC HMWAl /PRESENT BLOCK LOCATION 

ISZ MMDONE 

JMP .-2 



BLRCK2, 



BLRCK3, 



lOF 

LAC C2 
DAC C3 
LAW 42 
XOR CI 
MMLC 
MMEF 
SKP 



/READ FORWARD 
/GET DIRECTION 
/READ FORWARD OR 



REVERSE 



'V 

LI BRARY 



JMP 


BLRCK5 


MMDF 




SKP 




MMRD 




HMRF 




JMP 


BLRCK3 


MMRD 




MMEF 




JMP 


.+3 


LAC 


BLRCKl 


MMSE 




IS? 


C3 


JMP 


BLRCK3 


BLRCK4, LAS 




SPA 




JMP 


50 


LAC 


CI 


XOR 


(20) 


DAC 


CI 


JMP 


RLRCK2 


BLRCK5, MMRS 




AND 


( 40000) 


SAD 


(40000) 


JMP 


BLRCKA 


JMP 


RLRCK3+3 



START 
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/ERROR FLAG 



/EOT 
/REPOSITION TAPE 



PDP.7 DECTAPE SUBROUTINES, CONTROL 1, LMH 12'2'64 
/PDP-7 DECTAPpr SEARCH SUBROUTINE 

/DISMIS MUST BE DEFINED AS JMP TO DISMISS INTERRUPT ROUTINE" 



MMWR: 

MMLC 

MMSE 

MMRS 

MMDF 

MMBF: 

MMEF: 

MMRD: 

SKP7: 



707504 
707604 
707644 
707612 
707501 
707601 
707541 
707512 
703341 



/FORMAT 

/ 

/ 

/ 

/ 

/ 



JMS MMSCH /OR MMSCHl OR MMSCHR 

LAW B /OR LAC (B), BLOCK NUMBER 

JMP X /ERROR RETURN 

JMP Y /SEARCH COMPLETED RETURN 

ZZ0000 /UNIT SELECTION 

MULTI-PROGRAM RETURN 



LIBRARY 



Digital-7-20-IO 
Page 30 



/LEAVE IN SEARCH REVERSE MODE 



MMSCHR, 



PI 

LAC 

DAC 

LAC 

DAC 

CLA 

JMP 



.-1 

M M S C H 1 

(JMP HMSCH6+2) 

MMSCH3+1 

MMSCHl+4 



/LEAVE IN FORWARD DIRECTION WITH TAPE STOPPED 
MMSCH, 

LAC .-1 

DAC MMSCHl 

LAC (JMP MMSCH6) 

JMP MMSCHl+2 



/LEAVE IN SEARCH FORWARD MODE 



MMSCHl, 



LAC 
DAC 
CLC 
DAC 
T A D 
DAC 
LAW 
DAC 
XCT 
IS^ 
AND 
DAC 
SNA 
JMP 
ADD 
S^A 
JMP 
LAM 
DAC 
LAC 
DAC 
ISZ 
LAC 
DAC 
IS/ 
JMS 

Lac 



(JMP MHSCH6+?) 
hMSCH3+l 



M#MSRK 

(1) 

M # M S F K 

61 

H#MiAiA3 

I MMSCHl 

MMSCHl 

(7777) 

M # M 8 L K M 

M M S C H 4 
MMEK 

M M S C H 4 

-7 

M#MSUM 

I MMSCHl 

MMERRX 

MMSCHl 

I MMSCHl 

MMSCH7 

MMSCHl 
M M W A I T 
I MMSCHl 



/CURRENT DIRECTION 
/PICK UP BLOCK NUMBER 
/POINTS TO ERROR RETURN 

/BLOCK TO SEARCH FOR 



/FORMAT ERROR 

/CHG OF DIRECTION COUNTER 
/ERROR RETURN 



/COMPLETION RETURN 



/CHECK IF DELAY IS NECESSARY 
/UNIT SELECTION 
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M M T U Fx N , 



MMTRRX, 



MMSAVE, 



MMREV, 



MMERK, 



MMDATA, 



MM 
IS 
LA 
DA 
10 
IS 
JM 
LA 
JM 
JM 
HL 
LA 
SA 
JM 
PA 
MM 
LA 
PA 
LA 
TA 
DA 
f'l^ 
N 
LA 
DA 
JM 
LA 
DA 
MM 

LA 
D A 
LA 

JM 
MM 
AN 
SA 
JM 
LA 
JM 
MM 
AN 
DA 
SA 
JM 
CM 
AD 



SE 

i M 

C ( 

C M 

N 

i 

P 

W 

P 

P 

T 

W 

D 

P 

C 

LC 

C ( 

C M 

C M 

D M 
M 
M 



MSCHl 

NOP) 

MSAVE 



/POINTS TO MULTI-PROGRAM RETURN 



C M 
LC 

C ( 

C M 

C M 

D M 

P M 

PS 





rj 
p 
w 
p 

RO 
D ( 

C i^ 

n h 

M 



MSUM 

MERRX+2 

00 /NOT FOUND 

MFK + 1 

/ERROR EXIT 

/ERROR EXIT WAS NOT JMP INSTR 
1 

M W A 3 
MREV 
M W A 3 

SMA) 

MSGH2 

M fi L K M 

MSFK 

#MwA2 /BLOCK TO LOOK FOR IN THIS DIl 

#MijONF 

/UR DISMIS 
D ISM IS) 
MSAVE 

MMSCHl /CONTINUE MUL T I -PROGR AMM I NG 
1 
MNA3 

SPA) 
MSCH2 
M e L K M 
MSRK 

M S A v E - ;^ 



4001/10 ) 
M T U R H 

MEWRX-1 

7117) 

# M W A 1 
M W A 2 
MSCH3 



/NON-EOT ERROR DURING SEARCH 



P 
A 

D M M W A 2 
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MMSCH2, 


SMA 




JMP MMSAVE-1 




J MP NMTURN 


MMSCH3, 


SAD MMBLKM 




JMP MMSCH6 




Ji-lP MMTURN 


MMSCH4, 


L AW 10 




MHLC 




JMP I MMSC^^'l 


MMSCH5, 


LAW 10K 




JMP !^MFRRX-1 


MMSCH6, 


CLA 




MMLC 




CLC 




RAC MMDONE 


MMSCH7, 


JMP . 


MMFK, 


DECIMAL -576 OCTAL 



/OR SPA FOR REVERSE 
/KEEP GOING 
/TURN AROUND 

/OR MMSCH6+2 

/FORMAT ERROR 



/FORMAT ERROR 



/EXIT 



DAC HMSCH 

HMRS 

DAC M#MRSA 

LAC HMSCH 

MMLC 

JMP MMERRX 

/35 MILLISECOND SELECT DELAY LOOP 
MMWAIT, 

X c T I M M w A I r 

A^JD (17000 M) 

SAD M M C H K - 1 

JMP 1 MM vi A I T 

DAC MMCHK-1 
CLA 

mmse /Select unit zero 

lam decimal -5000 octal 

SKP7 /IS this A PDP-7? 

LAM DECIMAL -1094+1 OCTAL /COUNT 35 MS 

DAC MMSCM 

ISz^ I .-1 

JMP ,-1 

JMP I MMWAIT 

/SAVE SELECTION 



/PICK UP SELECT 
/CHECK SELECT ONLY 

/SAME SELECT 
/SAVE SELECT 



13 ID 13 
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Digifal-7-20-IO 
Page 33 

/pdp"? dectapit read and write forward subroutines 

/USES AUTO-INDEX RFGISTER NAMED MMaUTO WHICH MUST RE DEFINED 
/COMMON ROUTINE FOR PICKING UP CONSTANTS AND SEARCHING FOR BLOCK 



/BLOCK NUMBER 
/ERROR RETURN 

/UNIT SELECTION 

/STARTING ADDRESS 

/ENDING ADDRESS 



MMCHK, 









ADD 


(-1) 




DAC 


mmautg 




LAC 


I mmauto 




DAC 


MMCHKl+1 




LAC 


I M M A U T U 




DAC 


MMERRX 




DAC 


MMCHKl+2 




LAC 


I MMAUTO 




DAC 


MMCHKl+4 




CLC 






TAD 


T MMAUTO 




AND 


(17777) 




DAC 


M#MWA4 




CLC 






TAD 


I MMAUTO 




AND 


(17777) 




CMA 






ADD 


M M W A 4 




SMA 






JMP 


MMSCH5 




DAC 


M # M W D C 


MMCHKl, 


JMS 
LAW 


MMSCHl 




JMP 


, 




JMP 



JMP 


MMCHK2 




I MMAUTO 


MMCHK2, 


LAC 


M M W A 4 




DAC 


MMAUTO 




LAC 


(DISMIS) 




DAC 


MMSCH7 




JMP 


I MMCHK 


/DECTAPE 


READ 


SUBROUTINE 


/FORMAT 


JMS 


MMRDS 


/ 


LAW 


R 


/ 


JMP 


X 


/ 


^20000 


/ 


CI 




/ 


C2 





/ILLEGAL FORMAT 
/WORD COUNT 

/BLOCK NUMBER, MODIFIED 

/ERROR RETURN, MODIFIED 

/END RETURN 

/UNIT SELECTION, MODIFIED 

/MULTIPROCESS WITH MAIN PROGRAM 



/OR LAC (B), BLOCK NUMBER 

/ERROR RETURN 

/UNIT SELECTION 

/CORE STARTING ADDRESS 

/CORE ENDING ADDRESS, INCLUSIVE 



MULTI-PROGRAM RETURN 
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MMRDS, 







LAC HMRDS 




JMS MMCHK 




LAW 42 




MMLC 




LAC (DAC I MMAUTO) 




DAC MMRD3 


MMRDl. 


MMEF 




JMP .+3 




LAW 400 




JMP MMERRX-1 




MMDF 




JMP MMRDl 




MMRD 




DAC MMSUM 


MMRD2, 


MMEF 




SKP 




JMP MMRDl+2 




MMDF 




JMP MMRn4 




MMRD 


MMRD3, 


DAC I MMAUTO 




ADD HMSUM 




DAC MMSUM 




IS2 MMWnC 




JMP MMRQ2 




LAC (NOP) 




DAC MMR03 




JMP MMR02 


MMR.D4, 


MMPF 




JMP MMRD2 




MMRD 




ADD MMSUM 




SAD (-0) 




JMP .+3 




LAW 50R 




JMP MMERRX-1 




ISZ MMWAl /UPDATE 




LAC (DAC I MMAUTO) 




SAD MMRD3 




JMP MMRDl 




JMP MMSCH6 


/DECTAPE 


WRITE SUBROUTINE 


/FORMAT 


JMS MMWRS 


/ 


LAW R /OR LAC 


/ 


JMP X 


/ 


ZZ0000 


/ 


CI 



/READ FORWARD 



/ERROR FLAG DURING READING 



/ERROR FLAG DURING READING 



/OR NOP 



/SUM CHECK READING 
IRRtNT BLOCK ADDRES: 

/GOOD EXIT 



(B), BLOCK NUMBER 
/ERROR RETURN 
/UNIT SELECTION 
/CORE STARTING ADDRESS 




MULTI-PROGRAM RETURN 
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/CORE ENDING ADDRESS, INCLUSIVE 



MMWRS, 



MMWRl , 



MMWR?, 



MMWR3, 



MMWR4, 



MM 
MM 
(L 

MM 

MM 
43 





LAC 

JMS 

LAC 

DAC 

CLC 

DAC 

LAW 

MMLC 

MMEF 

JMP .+ 

LAW 60 

JMP MM 

MMDF 

JMP MM 

LAC I 

MMWR 

ADD MM 



MM 
MM 
MM 
(C 
MM 
MM 



DAC 

IS2 

JMP 

LAC 

DAC 

JMP 

MMBF 

JMP MM 

LAC MM 

CMA 

mmwr 

LAW 41 
MMLC 
MMFF 
SKP 

JMP MM 
MMDF 
JMP .- 
MMRD 
IS? MM 
(7 



WRS 

CHK 

AC I.MMAUTO) 

WR3 

SUM 



3 


ERRX-1 

WR4 
MMAUTQ 

SUM 
SUM 

woe 

WR? 
LA) 

WR3 
WR2 

WR2 
SUM 



/WRITE FORWARD 



/ERROR FLAG DURING WRITING 



/OR CLA 



/SEARCH FORWARD 



/ERROR DURING WRITING 



AND 
SAD 
JMP 
LAW 
JMP 
LAC 
SAD 
JMP 
JMP 



MM 
, + 

70 
MM 

a 

MM 
MM 
MM 



WR2 + 2 
4 



WAl /UPDATE CURRENT BLOCK ADDRESS 

777) 

WAl 

3 

/BLOCK MARK ERROR DURING WRITING 

ERRX-1 

AC I MMAUTO) 

WR3 

WRl 

SCH6 /GOOD EXIT 



START 



LIBRARY 
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/VIRGIN 

/FORMAT 

/ 

/ 

/ 

/ 



DECTAPE ViRGlw TAPE 

TAPE SUBROUTINE 



AND SUMCHECK ROUTINES 



JMS MMVT /OR MMVTR 

LAW B /OR LAC (B), BLOCK 

-N+1 /NUMBER OF BLOCKS 

JMP X /ERROR RETURN 

ZZ0000 /UNIT SELECTION 



NUMBER 



/MULTIPROGRAM RETURN 



MMVT, 



MMVTR2, 



MMVWRl, 



MMVWR2* 



MMVWR3, 





LAC 

DAC 

LAC 

DAC 

LAW 

DAC 

ADD 

DAC 

LAC 

JMS 

LAW 

MMLC 

CLC 

DAC 

LAC 

DAC 

LAC 

MMEF 

JMP 

LAW 

JMP 

MMOF 

JMP 

MMWR 

MMRD 

XCT 

JMP 

LAW 

JMP 

ADD 

DAC 

JMP 

MMBF 

JMP 

LAC 

CMA 



( JM 

MMV 

(1) 

MMS 

41 

MMV 

(2) 

MMV 

MMV 

MMV 

43 



S MMVCHK) 
WRl-1 

CFK 

/SEARCH FWD 
WR3 + 6 

WRl 

T 

CHK /OR MMVCHR 

/WRITE FWD OR WRITE REV 



MMSUM 

(SAD MMWRA-1) 

M M A U T 

I MMAUTO 

.+3 

600, /ERW, ERROR DURING WRITING 
MMERRX-1 

MMVWR3 

/CHECK IF BUFFER IS CORRECT 
MMAUTO 
.+3 

1400 /RUF, BUFFER INCORRECT 
MMERRX-1 
MMSUM 

MMSUM 
M M V W R 2 

M M V W R 2 + 1 
MMSUM 






LIBRARY 
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DAC 

MMWR 

LAW 

MMLC 

LAC 

XCT 

JMP 

LAW 

JMP 

LAC 

TAD 

DAC 

MMEF 

SKP 

JMP 

MM OF 

JMP 

MMRD 

AND 



M M W C 

41 /SEARCH FORWARD OR REVERSE 

MMVK /MODIFIED BY EXERCISERS 

M M AUTO 

. +3 

1200 /FLC, INCORRECT NUMBER OF FLAGS 

MMERRX-1 

M M W A 1 

MMSCFK 

H M W A 1 



MMVWR2+3 
(7777) 



/ERROR DURING WRITING 



SAD MMWAl 

JMP .+3 

LAW 700 /BMW, 

JMP MMERRX-1 

ISZ MMWOC 

JMP MMVWRl 

JMP MMSCH6 



BLOCK MARK INCORRECT 



/CONTINUE 
/EXIT 



MMVTR, 



MMVK, 





LAC .-1 

DAC MMVT 

LAC (JMS MMVCHR) 

DAC MMVWRl-1 

CLC 

DAC MMSCFK 

LAW 61 /SEARCH 

JMP MMVTR2 



REV 



4004i40 



/LAST VIRGIN TAPE WORD +1 



/DECTAPE SUM CHECK PROGRAMS 

/FORMAT JMS MMSCF /OR MMSCR 

/ LAW B /OR LAC (B), BLOCK NUMBER 

/ -N+1 /NrNUHBER OF BLOCKS 

/ JMP X /ERROR RETURN 

/ ZZ0000 /UNIT SELECTION 

/ MULTI-PROGRAM RETURN 



T 
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MMSCF, 



MMSCR2, 



MMSCFl, 



MMSCF2, 



MMSCF3, 



MMSCF4, 



MMSCF5, 



LAC 

DAC 

LAC 

DAC 

LAW 

DAC 

ADD 

DAC M 

LAC M 

JMS M 

LAW 4 

MMLC 

MMFF 

JHP . 

l_ A W ^ 

J M P M 

MMOF 

JMP M 

MMRD 

DAC M 

D A C M 

MMEF 

SKP 

JMP M 

MMOF 

JMP M 

MMRD 

ADD M 

DAC M 

JMP M 

MMBF 

JMP M 

MMRD 

DAC M 

ADD M 

DAC 

SAD 

JMP 

LA^^ 

JMP 

LAW 

MMLC 

Lac M 

TAD M 
DAC M 
MMEF 



JMS MMVCHK) 

MSCFl 

1) 

MSCFK 

1 /SFARCH FORWARD 
M S C F 5 

1) /RFAD MODE 

MSCFl+1 

MSCF 

MVCHK /OR MMVCHR 

2 /READ FWD OR REV, MODIFIED 



+ 3 

00 /ERROR DURING READING, ERR 
MERRX-1 



MSCF2 

MSUM 
MR\/C 



/READ REVERSE CHECKSUM 



/ERROR DURING READING 



MSCF2+2 

MSCF 4 

/DATA 
MSUM 
MSUM 
MSCF3 . 



MSCF3 

MROC 
MSUM 

MCC 

-0) 

+ 3 

00 /SUM CHECK 
MERRX-1 

1 /SEARCH FWD OR REVERSE, MODIFIED 

M W A 1 

MSCFK 

MWAl 






LI BRARY 



Digital-7-20-lO 
Page 39 



SKP 

JMP MMSCF2+2 

MMDF 

JMP .-4 

MMRD 

AND Ulll) 

DAC M#MRnR 

SAD MMWAl 



/ERROR DURING READING 



MHSCI- K, 



JHP .+3 

LAW 101^0 /BLOCK MARK ERROR DURING READING, BME 

JMP MMERRX-1 

IS? hM'WDC /RLOCK COUNTER 

JMP hMSCFl+1 /READ NXT BLOCK 

JMP MMSCH6 /GOOD EXIT 

1 /-0 FOR REVERSE, MODIFIED 



/SUM CHECK REVERSE 



MMSCR. 



LAC 

DAC 
LAC 
DAC 
CLC 
DAC 

Law 

JMP 



.-1 

H M S C F 

(JMS MMVCHR) 

MMSCFl 

M M S C F K 

61 /SEARCH 

HMSCR2 



REVERSE 



/COMMON ROUTINE FOR PICKING UP VIRGIN TAPE CONSTANTS ETC 



MMVCHK, 



MMVCHl, 



I? 

ADD 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
LAC 
DAC 
JMS 
LAW 
JMP 
JMP 



(-1) 

M M A U 
(JMS 
MMVC 
I MM 
MMVC 
I MM 
H M W D 
1 MM 
MMVC 
I MM 
MMVC 
MMSC 



MMVC 



TO 
M M S C H 1) 

HI 

AUT 
H1 + 
AUT 

C 

AUT 
H1 + 
AUT 
H1 + 
HI 

/ 

/ 
H2 



/BLOCK NUMBER 
/NUMBER OF BLOCKS 
/ERROR RETURN 
/UNIT SELECTION 



/OR MMSCHR 
HLOCK NUMBER, MODIFIED 
ERROR RETURN, MODIFIED 

/END RETURN 



LIBRARY 
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/UNIT SELECTION 




JMP 


I MMAUTO /CONTINUE 


MMVCH2, 


LAC 


(DISMIS) 




DAC 


MMSCH7 




JMp 


I mmvchk 


MMVCHR, 









ADD 


(-1) 




DAC 


MMAUTO 




LAC 


MMVCHR 




OAC 


MMVCHK 




LAC 


(JMS MMSCHR) 




JMP 


MMVCHK+4 



MULTIPF^OGRAMMING 



STAK 



88 



MARK TRACK PROGRAM FOR DECTOG 



M=320000 

B = 670'2)00 

G = 4 5 1^ 

D=07M0 

GBAR=260000 

BBAR = 04000£^ 

MBAR=510000 

E=220000 

EBAR=550000 

/NOTE THAT THESE MARKS ARE THE REVERSE OF THE WAY THEY ACTUALLY APPEAR ON 

/THE Tape 



WRMKTR, 



EK. 



JMS 

LAC 

DAC 

LAM 

OAC 

JMS 

LAS 

MMSE 

AND 

CM A 

DAC 

HLT 

LAS 

AND 

CM A 

ADD 

DAC 



clrflg 

(NOP) 

W R M 8 2 

DECIMAL -7143 OCTAL /NO OF END MARKS 

Cl /NO OF E TO WRITE 

M M W A I T 

/UNIT SELECTION AND HIGHEST BLOCK NUMBER 

(7777) 

I N I T + 2 



/NO OF DATA WORDS PER BLOCK 



(7777) 
(5) 

W R [! 



IRIDIC 
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HRF, 



INIT, 



WRM, 



wrgbah, 



WRBBAR, 



l^RRB, 



LAC ( 
MMLC 
LAC ( 

HMDF 
JKP . 
MMWR 



J MP 
LAC 
OAC 
LAM 
OAC 
LAC 
DAC 
MMFF 
JMP . 
LAC M 
AND ( 
DAC M 
MMRS 
DAC M 
LAW 6 
MMLC 
JMP T 
LAC M 
MMDF 
JMP . 
MMWR 

LAC ( 

MMDF 
JMP . . 
MMWR 
LAN - 
DAC C 
LAC ( 
MMDF 
JMP . 
MMWR 



47) /WRITE BLOCK MARK TRACK, FORWARD 

EBAR) 

-1 

1 

RF + 1 

M) 

M 

ECIMAL -577 OCTAL /MODIFIED 

1 /NO OF BLOCKS TO WRITE -1 

JMP WRQATA) 

+ 11 

M 

7777) 

MWAl 

MRS A 

00 /ERW 

S T M M 6 
M 

-1 

GBAR) 
-1 

3 

2 
8RAR) 

-1 



ISZ C2 

JMP WRBB 
WRD, LAM DECIMAL -251 OCTAL 

DAC C2 

lON- 
/CALCULATE OBVERSE MARK, 1800US 
COl, LAC MM 

RTL 

RTL 



/NO OF DATA FLAGS -1, MODIFIED 
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C02, 



WRB, 



WRB2, 



WRG, 



WRMBAR, 



WRMB2, 



WREBAR, 



RTL 

DAC 

JMS 

6 

RTR 

RTR 

RTR 

AND 

DAC 

LAC 

RTL 

RTL 

RTL 

JMS 

6 

RAL 

RTL 

RTL 

RTL 

AND 

XOR 

XOR 

DAC 

JMP 

LAM 

DAC 

LAC 

MHDF 

JMP 

M M W R 

ISZ 

JMP 

LAC 

MMDF 

JMP 

M M W R 

LAC 

MMDF 

JMP 

MMWR 

NOP 

LAC 

DAC 

JMP 

132 

IS'/. 

vJMP 

XCT 

DAC 

LAC 
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WAl 
COBV 



(7700) 

WA2 

WAl 



COBV 



(77) 

WA2 

(MRAR) 

MMBAR 

-3 
C2 
(ri) 

.-1 

C2 

wRB2 

(G) 

,-1 

HMBAR 

.-1 



/WAIT FOR DATA TO FINISH 



(J 

WR 
VI R 
MM 
CI 
HR 
FK 
CI 
(E 



/OR JMP 
MP WRMB2+4) 
MR2 
M 



M 



WRMB2+4 
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f^MDF 
JMP .-1 
HMWR 
ISZ CI 
JMP WRFp 



MM, 

WAl, 

WA2, 

MMBAR 

WA3, 

/WRITI 

WRDAT. 



CLA 

M M L C 

JMP SUMFIA /DONE 



(/) 





DATA MARKS, 12dUS, TOT AL=18144US LEFT 
D A C W A 
LAC (D) 
MMWR 
LAC WA3 



ISZ 
SKP 
JMP 
ION 
JMP 



C2 



WRR 



I (^ 



START 



/OBVERSE 

/ V A R I A ri L E 

/FORMAT 

/ 

COBV, 



C08V1 



ORVl 



OBVERSE LOOP, 148US+104US PER CHAR 
/NO OF CHARACTERS FROM LEFT TO OBVERSE 



08V2 /ORIGINAL WORD 
I CORV 



LOOPS 
COMPLEMENT 
JMS OBV 
6 

CNA 
DAC 
LAC 
CMA 
DAC 
ISZ 
DZM 
LAC 
RAL 
DAC 
LAC 
PAR 
DAC 
ISZ 
JMP 
ISZ 
JMP 



OBV 3 
OBV 3 
08V4 
0BV2 

0BV2 
0BV4 

OBV 4 
OBV 3 
OBVl 
COBV 
I C R V 



/COUNTER 



/NEi^l WORD 
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0BV2, 







0BV3, 







0BV4, 







/VARIARLE 


NON 


COMPLEMENT OBVERSE 


OBV, 









DAC 


B V 2 




L AC 


08 V 




DAC 


CORV 




JNP 


COHVl 
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LOOP, 176US+104US PER CHARACTER 



START 

TELETYPE ROUTINES WITH OCTAL PRINT LM.H 8-8-63 (DLF 12-5-64) 
/TURNS INTERRUPT OFF 

/OCTAL PRINT, WITH ZERO SUPPRESSION 

/FORMAT LAC nD 

/ TWORDz! 

/ N /NrNUMBER OF DIGITS TO PRINT FROM LEFT END OF WORD 



OCTAL 






TW0RD2: 


:JMS . 






D A C 


nCPN/MJM 




LAC 


(SZa) 




DAC 


TWnRnZ+17-JMS 




LAC 


I TWOROZ-JMS 




CMA 






DAC 


DCPC#NT 




IS2 


DCPCNT 




ISZ 


TWOROZ-JMS 




LAC 


iiCPNUM 




RTL 






RAL 






DAC 


DCPNUM 




RAL 






AND 


(7) 




SZA 


/MODIFIED 




JMP 


TW0RDZ+25-JMS 




ISZ 


DCPCNT 




JMP 


TWORDZ+11-JMS 




TniGIT 




JMP 


I TWORDZ-JMS 




DAC 


DCPn#IG 




LAC 


(JMO TW0RDZ+31-JMS) 




DAC 


TW0RDZ+17-JMS 




LAC 


DCPDIG 




TOIGIT 




ISZ 


DCPCNT 




JMP 


TWOROZ+11-JMS 




JMP 


I T"JURDZ-JMS 



rr 
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/OCTAL PRINT, NO ZERO SUPPRESSION 
/FORMAT SAME AS TWCROZ 

TWORD=JMS . 



DAC DCPNUM 

LAC TWORD-JMS 

DAC TWORnZ-JMS 

LAC (JMP TWaRD?. + 31-JMS) 

JMP Ti^nRDZ + .:5-JMS 

/TABLE FOR OCTAL TO DECIMAL CONVERSION 

DECIMAL 

DCPTAB, 100000 l!>100W 1000 

OCTAL 



100 



/TEtETYPE OUTPUT PACKAGE MODIFIED Fqr DECTOG LMH <DLF) 

EXT=JMp I-JMS TTA8=10 

/TYPE 1 CHARACTER FROM AC BITS 12-17 

TYlrjMS . 

PAR 

JMS TYIA 

EXT TYl 

/TYRE 1 CHARACTER (5 HIT), LINK INDICATES CASE 

TYIA, 

DAC T#EHY 

AND (37 

SNA 

JMP TY2 

703301 

SKP 

JMP TYlRRB 

LAC OCL 

SPL 

LAC OCD 

SAD DCS 

JMP . 3 

JMS OTY 

DAC DCS 



12-5^64 
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( 
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TY2, 



LAC TEMY 

JMS OTY 

IS^ T#BC 

LAC TEMY 

JMP I TYIA 



/TYPE 3 CHARACTERS FROM AC 0-5, 6-11,12-17 RESPECTIVELY 

TY3=JMS . 

JMS RL6 
JMS TYIA 
JMS RL6 
JMS TYIA 
JMS RL6 
JMS TYIA 
EXT TY3 

/TYPE A CARRIAGE RETURN, AND LINE FEED 



TCR=JMS 



TCRSSS, 
TCRRRR, 





7-033t^l 
JMP ICRSSS 
LAW 215 
JMS OTY 
LAW 212 
JMP TCRRRR 
LAW 2 
JMS OTY 

Law 1 

JMS OTY 
[jTfM T8C 
FXT TCP 



/TELETYPE OUTPUT PACKAGE - PAGE 2 

/TYPE A SPACE 

TSP=JMS . 

?■■ 

LAW 4 
703301 
SKP 
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LAW 240 

J.^S OTY 

IS^ T8C 

FXT TSP 

/TYPE A TABULATION 



TYT=JMS 
TAB=TYT 



LAC 
ADD 
SMA 
JMP 
ADD 
SMA 
LAC 
ADD 
DAC 
TSP 
ISZ 
JMP 
FXT 



TBC 
(-TTA8-1 

.-2 
(1 

(-TTAR-1 

(-1 

T#EM 

TEM 
.-2 
TYT 



/TYPEWRITER INITIALIZE 

TIN=JMS . 

'/i 

LAC OCL 

DAC OCS 

703301 

JMS OTY 

TCR 

EXT TIN 

/TYPE THE DIGIT IN THE AC 



TDIGlTrJMS 



TDIGTl 





AnH (17 

ADD (LAC NOT 

DAC . 1 

XX 

703301 

JMP TDIGTl 

RCL 

JMS 

JMS 

EXT 

TYl 

EXT 



RL6 
OTY 
T D I G I T 

TDIGIT 




/TELETYPE OUTPUT PAC*<AGE - PAGE 3 
/TYPE A STRING OF CHARACTERS 
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TSR=JMS 




DAC 






t#fmyi 




LAC 


(JMP TSRl 




DAC 


TYIA 4 




LAC 


I TFMYl 




TY3 






ISZ 


T E M Y 1 




JMP 


.-3 


TSRl, 


LAC 


(JMP TY2 




DAC 


TYIA 4 




LAC 


TEMYl 




eXT 


TSR 


/OUTPUT 


ONE FIVE BIT CHARACTER 


OTY, 



I OF 






DAC 


T W R D - J ^-1 S 




LAC 


NIOT 




703341 




LAW 


/COUNTER 




DAC 


RL6 




LAC 


TWORD-JMS 




TSF 






SKP 






JMP 


.+3 




ISZ 


RL6 




JMP 


.-4 




TLS 






JMP 


I 'OTY 



/SAVE 



/SKIP ON POP 7 



/ROTATE LEFT 6 



HL-O » 




VJ 

RTL 
RTL 
RTL 
JMP I RL6 








/TABLE 


OF 


DIGITS 








NCT, 
NIOT, 

/caSe 


STo 


600033 
6400P5 
700031 

^age 


610073 
650003 
710007 


620063 
660053 


630041 
670071 


OCU, 
OCL, 
OCS, 




33 
3 7 
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/4*7 ADDENDUM DECTOG 



TYIBBB 



TYIDDO 



RCN 

ADD 

DAC 

XX 

S2L 

JMP 

JMS 

RTL 

RTL 

JMP 



(LAC 
. 1 



MTATAB 



TY2-2 
RL6 



/BAUDOT TO ASCI I 
/ODD RIGHT HALF, 
MTATAB, 200324 
215317 
240310 
316315 
212314 
322307 
311320 
303326 
305332 
30 4 30 2 
323331 
306330 
30132 7 
312377 
325321 
313377 
START 



TY2-2 

ASSUMES LETTERS 
EVEN LEFT HALF 



CASE 



RM=040440 
RB = 444iM4 
RG =404004 
RO=444 00 
RGBAR=044040 
RBBAR=004000 
RMBAR=400404 
REBAR=404404 
RE=040040 722 
R25=040404 



^'EVISED 


/26 


/73 


/51 


/70 



MARK TRACK PROGRAM 



WFLAGS, 



/32 

/10 
/45 
/55 

/25 





MMEF 

SKP 

JMS WRNVT: 



/ERW 
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MMWR 

JMP I WFLAGS 
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/UNIT AND HIGHEST BLOCK NUMBER 



RWMKTR, JMS CLRFLG 
JMS MMWAIT 
LAS 
MMSE 

AND (7777) 
CMA 

DAC MMWAl /BLOCK COUNTER 
HLT 

LAS /NUMBER OF DATA WDS PER BLOCK 

AND (7777) 
CMA 

ADD (5) 
DAC MMWA? /WDS PER BLOCK 



LAM DECIMAL -7143 

DAC MMWA4 

LAW 4 7 

MMLC 

LAC (REBAR) 

JMS WFL 



OCTAL 



/WRITE TIMING AND MARK TRACK FORWARD 



/REVERSE END 



RWRM, 



LAC 
JMS 
LAC 
JMS 
LAC 
JHS 
L A M 
DAC 
LAC 
JMS 



(R?5) 

WFLAGS 

<RM) /I 

WFLAGS 

(RGBAR) 

WFLAGS 

-3 

M M W A 4 

(RRBAR) 

WFL 



jARK 



/-G 



/~B 



LAG 
DAC 
LAC 
JMS 
LAM 
DAC 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
LAC 
JMS 
ISZ 



MMWA2 

M M W A 4 

(RD) 

WFL 

-3 

MMWa4 

(RB) 

WFL 

(RG) 

WFLAGS 

(RMBAR) 

WFLAGS 

(R25) 

WFLAGS 

MMWAl 



/DATA 



/FINAL MARKS 



/G 



/REVERSE MARK 
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JMP RWRM 

LAC (DECIMAL -14286 OCTAL) 

DAC MMWA4 

LAC (RE) 

JMS WFL 

JMP MM-3 /DONE 



WFL, 





JMS WFLAGS 

IS? MMWA4 

JMP .-2 

JMP I WFL 



/WRITE 
WRNVT. 



VIRGIN 
JMS 



TAPE FOR 
CLRFLG 
( 1001) 
GENBLA 



MARK TRACK ONLY 



LAC 
JMS 



DZM 

JMS 

LAS 

MMSE 

DAC SUMFl+4 

DAC RV28+4 

JMS REWIND 



MM 

r-i M W A 1 

mmwait 



/MARK 



/UNIT 



LAW 

MMLI 

CLC 

DAC 

LAC 

DAC 

HMFI 

SKP 

JMS 

M M n ( 

JMP 



41 



MMSUH 

(SAO M M W R A - 1) 

M M A U T 



WRNVT8 



.-4 



/SEARCH FWD 



WRNVT3, LAW 43 

MMLC 
/CALCULATE REVERSE MARK 

LAC MM 

RTR 

RTR 

AND W0V3000) 



/ERW 



/WRITE FWD 
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DAC 
LAC 
RTL 
RAL 
AND 
ADD 
DAC 
LAC 
RTl 
RAL 
AND 
ADD 
DAC 
LAC 
RTR 
RAR 
AND 
ADD 
CMA 
DAC 



MMRAR /BITS 15-17 
MM 

RTL RTL 

(70000) 

MMRAR 

MMRAR /BITS 12-14 

MM 



(7000) 

MMRAR 

MMRAR /BITS 9-11 



( 700) 

MMBAR 

NMBAR /BITS 6-8 



RTL 



WRNVT4, 



LAC I M M A iJ T 

MMEF 

SKP 

JMS i'yRNVTS 

MMDF 

JMP WRNVT5 

MMWR 

MMRD 

XCT MMA^-JTO 

JMP .+5 

MMRS 

DAC MMRSA 

LAW 1400 

JMP WRM+10 

ADD MMSUM 

DAC MMSUM 

JMP WRNVT4 



/ERW 



/8UF 



WRNVT5, 



MMBF 

JMP WRNVT4+1 

LAC MMSUM 

CMA 

DAC MMWC 

MMWR 

L A W 4 6 



/WRITE THRU ENDS 
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MML( 


J 




CLC 






UAC 


MMSUM 




LAC 


(SAD MMWRA-1) 




OAC 


MMAUTO 




LAM 


-1 




DAC 


,MMWA4 




CLA 






JMS 


WFL 




LAC 


MMBAR /REVERS 




JMS 


WFLAQS 




CLC 






JMS 


WFLAGS 




CLA 






JMS 


wflags 




]SI 


MM 




LAC 


MM 




OAC 


mmWai 




JMS 


WFLAGS 




CLA 






JMS 


WFLAGS 


WRMVT6, 


MMEF 




JMP 


.+6 




MMRS 




AND 


( 4 (/] ) 




S2A 






JMP 


WRNVT7 




JMS 


WRNVT8 




HMPF 




JMP 


W R N V T 6 




JMP 


w R N V T 3 


/AUTOMATIC CHECK SUM 


WRMVT7, 


CLA 
MMLC 






LAM 


-1 




TAU 


MM 




DAC 


Kl 




CMA 






ADD 


(1) 




DAC 


SUMFl+2 




LAC 


(JMS MMSCR) 




DAC 


SUMFl 




LAC 


(JMP RV2B) 




DAC 


SUMFIA 




JMP 


SUMFl 


WRNVT8, 


(^ 






JMP 


W R h + ? 



/WRITE -L AND G 



/REVERSE 25 
/FORWARD 25 



/UPDATE MARK 

/MARK 
/-G 



/END OF TAPE 



/STARTING BLOCK 



START 
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/STOP ADJUSTMENT PROGRAM 
/IF ACSO=0, GO FOR 1 SFCOND 



OTHERWISE GO FOR 0,12 SECONDS 



STAR, 



STAR? 



STARK, 
STAPK2 
STAPK3 
STAPK4 



JMS CLRFLG 

JMS STAR3 

DZM CI 

JMS MMWAIT 

LAS 

MMSE 

LAW 40 

XOR CI 

MMLC 

LAS 

RAL 

LAC STARK 

SRL 

LAM DECIMAL 

JMS TIMER 

CLA 

MMLC 

LAC CI 

XOR (20) 

OAC CI 

LAC STaPK 

JMS TIMER 

JMP STAR+3 

DECIMAL -31250 OCTAL 

DECIMAL -31250 OCTAL 

DECIMAL 119287 OCTAL 

DECIMAL -17143 OCTAL 



/CLEAR DIRECTION 



/MOVE FWD 
/GET DIRECTION 



-3750 OCTAL 



/0.12 SECONDS 



/STOP FOR 



/CHANGE DIRECTION 
1 SECOND 



/I 
/I 
/I 



SECOND 

SECOND, 

SECOND, 



PDP-4 
PDP-7 



/.12 SECONDS, PDP-' 



/TIMING. LOOP, 32 MICROSECONDS PER COUNT FOR PDP-4, 7 MS FOR PDP-7 



/FORMAT 

/ 

TIMER, 



LAC 
JMS 

DAC 
ISZ 
JMP 
JMP 



(-N) 
TIMER 



/WHERE 'N = MICROSECONDS OVER 32 



C2 

I .-1 

.-1 

I TIMER 



STAP3, 



STAP4, 





SKp 
JMP 
LAC 
[) A C 
LAC 
DAC 
JMP 
LAM 
DAC 
LAC 
JMP 



7 



STAP4 

(LAC STAPK4) 

STAP2 

STAPK3 

STAPK 

I STAP3 

DECIMAL -375^ OCTAL 

STAP2 

STAPK2 

STAP4-2 



/FOR PDP-7 



/FOR PDP-4 
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/RECORD 

RBMN, 



RBMN1 



RBMN2 



BLOCK 
JMS 
JMS 
LAS 
MMSE 
LAW 
DAC 
LAM 
DAC 
J MS 
LAW 

MMLC 

MMEF 

JMP 

MMRS 

AND 

SAD 

JMP 

JMP 

MMDF 

JMP 

MMRD 

DAC 

IS^ 

JMP 

CLA 

MMLC 

JMP 

LAM 

DAC 

ISZ 

JMP 

JMP 



MARK NUMBERS 

CLRFLG 

M M W A I T 



MMWRa-1 
MMaUTO 

-3777 

WAl 

REWIND 

41 



. +6 

(40000) 
( 4(^000 ) 
KBMN2 
RBMN.1-.2 

R8MN1 

I MMAUTO 

WAl 

RBMNl 



SUMFIA 

I MMAUTO 
WAl 
.-2 
RBMN2-3 



/SEARCH FWD 



/END OF TAPE 



/TYPE END 



/RETURN F.ROM SUM CHECK TO WRITE FIRST BLOCK ZERO NUMBER 
RV?B, 



JMS 
LAW 
JMP 
JMP. 



JMP 

MMDF 

JMP 

MMRD 

SZA 

JMP 

LAW 



MMSCHR 
1 

RVZ6 
.+3 



.-1 



/BLOCK NUMBER 1 

/ERROR RETURN, SEARCH AGAIN 

/DONE RETURN 

/UNIT 

/WAIT FOR SEARCH TO BE COMPLETED 



RVZB5 /NON-ZERO BLOCK FOUND 
62 /READ REVERSE 
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MMLC 


RVZB2, 


MMDF 




JMP .+3 




HMRD 




JMP RVZ82 




MMBF 




JMP RVZ82 




MMRD 




LAW 66 




MHLG 


RVZB3, 


CLA 




MMEF 




SKP 




JMP R\/Z94 




MMOF 




JMP H^^.S5 + 1 




MMWR 




JMP RVZB3 


RV2B4, 


MMRS 




AND (40000) 




SAO (40000) 




JMP .+3 




DZM MM 




JMS WRNVT8 




LAC (JMS TYPEND) 




DAC SUMFIA 




JMP SUMFIA 


/NON-ZERO 


BLOCK FOUND 


RVZB5, 


CLA 




MMLC 




TIM 




LAC (FLEX MZB) 




TY3 




JMP XI 



/WRITE ALL REVERSE 



/REWIND DEcTAPE UNIT 



EWINQ, 







LAW 6 




HMLC 




MMEF 




JMP .-1 




MMRS 




AND (40000) 




SNA 




JMP REWIND+1 




JMP I REWIND 



/REWIND 



/END OF TAPE 
/IGNORE ERROR 



START 
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